home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 6-3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.2 KB  |  32 lines
  1. 10 rem ***  filter - effekt
  2. 11 :
  3. 12 :fr =64   :rem filterfrequenz (high)
  4. 13 :m  =0    :rem mode
  5. 14 :w  =1    :rem ueberlauf verbieten
  6. 15 :ut =3    :rem hochzaehl zeit (up-time)
  7. 16 :dt =60   :rem runterzaehl zeit (down-time)
  8. 17 :ul =20   :rem hochz. schritt (up-level)
  9. 18 :dl =1    :rem runterz. schritt (down-level)
  10. 19 :
  11. 20 rem * ton einschalten
  12. 21 :
  13. 22 s=54272:pokes+4,8:pokes+24,15+16 :rem volle lautstaerke und tiefpass filter
  14. 23 pokes+6,248:pokes+5,0:pokes+4,33 :rem  adsr und saegezahn-wellenform poken
  15. 24 pokes+23,241:pokes+1,5 :rem  volle resonanz, filter stimme 1 an, tonhoehe
  16. 29 :
  17. 40 rem * filter !!
  18. 51 :
  19. 52 i=0         :rem  zaehler vorbereiten
  20. 53 pokes+22,fr :rem  filterfrequenz poken
  21. 54 fr=fr+ul    :rem  filterfreq. um up-level erhoehen
  22. 55 ifw=1andfr>255thenfr=255 :rem  bei w=1 ueberlauf der filterfreq. verbieten
  23. 56 i=i+1       :rem  zaehler erhoehen
  24. 57 ifi<utthen53:rem  nochmal bis schleifenende erreicht (up-time)
  25. 59 :
  26. 60 i=0         :rem  zaehler vorbereiten
  27. 61 pokes+22,fr :rem  filterfreq. poken
  28. 62 fr=fr-dt    :rem  filterfreq. um down-level vermindern
  29. 63 ifw=1andfr<0thenfr=0 :rem  bei w=1 unterlauf der filterfreq. verbieten
  30. 64 i=i+1       :rem  zaehler erhoehen.
  31. 65 ifi<dtthen61:rem  ...nochmal bis down-time errreicht (schleifen-ende)
  32.